﻿Namespace Collections
    Public Structure SortCriteria(Of T)

        Private _Comparer As IComparer(Of T)
        Public ReadOnly Property Comparer() As IComparer(Of T)
            Get
                Return _Comparer
            End Get
        End Property

        Private _Direction As SortDirection
        Public ReadOnly Property Direction() As SortDirection
            Get
                Return _Direction
            End Get
        End Property

        Public Sub New(ByVal Comparer As IComparer(Of T), ByVal Direction As SortDirection)
            _Comparer = Comparer
            _Direction = Direction
        End Sub
    End Structure
End Namespace